<script>on mouseDownput the left of me + 1 into TheLocput "," & the bottom of me after TheLocput line 2 of popUpMenu(bg fld "Menu Items",TheLoc,0,"geneva","10") ¬into TheSectionif TheSection = 0 then exit mouseDownset the scroll of bg fld "Description" to item TheSection of bg fld "Scrolls"end mouseDown</script>